function Main()

   MInit()

   MOn()

   InKey( 0 )

   MOff()
   MReset()

return
